(* Codigo correto! *)
program julioteste;

const n = 10;
type meuvet = array[1..10] of integer;
var x:integer; y:boolean; v:meuvet;

begin
{ Teste de comandos simples: atribuicao e chamada de procedimento, ambos juntos com expressoes }
 x := (n+3*2-5div 2) > ((5*5+2)div(4*21-10));
 y := n*3-x+n <> v[(n*1)div(5+2)];
 x := v[n*(2 div 1)]*v[5div(n*2)] = v[7+4-2];
 v[x+1] := (y*n) < 3;

{Teste de comandos condicionais }
if 2*2 then x:=4*3;
if 3<2 then x:=4*3 else x:=3*4;
if (2<>1) then
begin
	x:= 43*2;
	y:= 23-4
end
else
begin
	v[1] := 54
end
 
end.
